約 5,217,457 件
https://w.atwiki.jp/kakis/pages/9705.html
setvox /// / 殺意 set\vox \ 15 seren klel \
https://w.atwiki.jp/prepress-tips/pages/180.html
最終更新日時： 2011/02/27 codeLayouter ver 0.03 を perlxs で使うための準備。 codeLayout_filename.bat codeLayouter.pl adjust_source.pl xs_add.pl codeLayout_filename.bat codeLayouter.pl adjust_source.pl xs_add.pl Edit codeLayout_filename.bat _filename のところを適当にリネームして使用する。 filename_index.txt に codeLayouter.pl を適用してfilename.pl , filename.xs , filename_xs.pl を作り それぞれを補正する。filename_xs.pl は filename.xs に追加する。 filename.pl の文字コードを utf8 に変換する。 filename と同名のフォルダがあれば filename.xs をその中にコピーする。 codeLayout_filename.bat @echo off cd /d %~dp0 rem fn set fn=%~n0 set fn=%fn codeLayout_=% echo new %fn% rem codeLayouter set codeLayouter=perl codeLayouter.pl echo/ && %codeLayouter% %fn%_index.txt || ( pause && exit ) rem adjust pl set ex=pl ( if exist _.%ex% del _.%ex% ) && ren %fn%.%ex% _.%ex% perl adjust_source.pl p _.%ex% %fn%.%ex% if exist _.%ex% del _.%ex% rem adjust xs set ex=xs ( if exist _.%ex% del _.%ex% ) && ren %fn%.%ex% _.%ex% perl adjust_source.pl c _.%ex% | perl -p xs_add.pl %fn%.%ex% if exist _.%ex% del _.%ex% rem adjust _xs.pl set ex=pl ( if exist _xs.%ex% del _xs.%ex% ) && ren %fn%_xs.%ex% _xs.%ex% perl adjust_source.pl p _xs.%ex% | perl -pe %fn%.xs if exist _xs.%ex% del _xs.%ex% rem .pl language utf8 set ex=pl ( if exist _.%ex% del _.%ex% ) && ren %fn%.%ex% _.%ex% perl -n ^ -e BEGIN { use Encode qw( encode decode ) ; } ^ -e /^.*/ ; print encode( utf8 , decode( cp932 , $& . \ \n\ ) ) ; ^ _.%ex% %fn%.%ex% if exist _.%ex% del _.%ex% rem copy xs echo/ && echo copy %fn%.xs if exist %fn%\ copy %fn%.xs %fn%\ echo/ && pause codeLayouter.pl codeLayouter.pl は codeLayouter ver 0.03 のものを使う。 adjust_source.pl codeLayouter.pl の結果を補正する。 adjust_source.pl my $pl = ( 0 @ARGV && $ARGV[0] =~ /^p$/i ); my $c = ( 0 @ARGV && $ARGV[0] =~ /^c$/i ); my $css = ( 0 @ARGV && $ARGV[0] =~ /^css$/i ); my $js = ( 0 @ARGV && $ARGV[0] =~ /^j$/i ); my $tag = ( 0 @ARGV && $ARGV[0] =~ /^t$/i ); my $r = ( 0 @ARGV && $ARGV[0] =~ /^r$/i ); my $dot = ( 0 @ARGV && $ARGV[0] =~ /^d$/i ); my $uws = ( 0 @ARGV && $ARGV[0] =~ /^u$/i ); my $as = ( 0 @ARGV && $ARGV[0] =~ /^a$/i ); BEGIN{ my $post = 0 ; } while( STDIN ) { $pl && do { s,^(\s*)//,$1#,; s,^/\*,$1=pod,; s,^\*/,$1=cut,; s,^(\s*\{\s*)//,$1#,; s,^(?!\s*(? my|our)\s)(\s*)(\S+\s*)\([^\)]*\)(\s*\{\s*)//,$1sub $2$3#,; s,^(?!\s*sub\s)(\s*[^\{]*?[^\{\s])\s*;?\s*(\{\s*)//,$1 ; $2#,; s,^(?!\s*sub\s)(\s*[^\{/]*;\s*)//,$1#,; }; $c && do { ; }; $css && do { m,^[^{;]*;?\s*{\s*//, && ( s ^([^{;]*);?(\s*{\s*)// $1$2/* , s (?=$) */ ); m,^\s*//, && ( s ^(\s*)// $1/* , s (?=$) */ ); }; $js && do { s,^(\s*)(\S+\s*\([^\)]*\)\s*\{\s*)//,$1function $2//,; s,^(?!\s*function\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2//,; s,([\,\*])\;(?=\s*$),$1,; }; $tag && do { m,^\s*//, && ( s/^\s*/$& !-- /, s/$/ -- / ), s,( \s*);$,$1, ; s, \-([\w\-]+) , /$1 ,g ; }; $r && do { s,^(\s*\S+\s*)(\([^\)]*\)\s*\{\s*)//,$1 - function $2#,; s,^(\s*\S+)(\s*)(;?\s*)//,$1 - NULL$2; $3#,; s,^(\s*)//,$1#,; }; $dot && do { m,^[^{;]*;?\s*{\s*//, && ( s ^([^{;]*);?(\s*{\s*)// $1$2/* , s (?=$) */ ); m,^\s*//, && ( s ^(\s*)// $1/* , s (?=$) */ ); }; $uws && do { m,^[^{;]*;?\s*{\s*//, && s ^([^{;]*);?(\s*){\s*// $1$2// ; m,^\s*}\s*$, && s ^(\s*)}(\s*)$ $1//$2 ; m,^\s*ifb\s.*\S +endif;?(?=\s|$), && s ^(\s*)ifb(\s.*\S) +endif;?(?=\s|$) $1if$2 ; m,^\s*if\s.*?;(?=\s*$), && s ^(\s*if\s.*?);(?=\s*$) $1 ; }; $as && do { m,^[^{;]*;?\s*{\s*//, && s ^([^{;]*);?\s*{(\s*)// $1--$2 ; m,^\s*//, && s ^(\s*)// $1-- ; s,/\*,(*,g ; s,\*/,*),g ; s,\s*;(?=\s*$),, ; s,;;,\x0a,g ; m,^\s*}\s*$, && s ^(\s*)}(\s*)$ $1$2 ; }; print; } xs_add.pl filename.xs 内の関数の perl用入出力宣言を自動的に作って filename.xs に追加する。 xs_add.pl our @types ; our $types ; our @flist ; BEGIN { @types = ( void , int , double , char\s*\* , SV\s*\* , AV\s*\* ) ; $types = (? . ( join | , @types ) . ) ; @flist = () ; } /^\s*$types\s+[\w_]+\s*\((? \s*$types\s+[\w_]+)?(? \s*,*\s*$types\s+[\w_]+)*\s*\)\s*\{/ || next ; my $str = $& ; $str =~ /^\s*($types)\s+([\w_]+)\s*\(/ ; $str = $ ; my $r = $1 ; my $f = $2 ; $str =~ s,\s*\)\s*\{$,, ; my @a = split , , $str ; push @flist , join , ( \n$r\n , $f( , ( join , , map { s,^\s*,, ; s,\s*$,, ; /^$types\s+/ ? $ $_ } @a ) , )\n , map { $_\n } @a , ) ; END { print @flist , \n ; } Edit
https://w.atwiki.jp/kakis/pages/9835.html
esiset /// / 酔い止め、吐き気止め、乗り物酔い止め esi\set \ 16 seren klel \ [ ova ] \ xen-e esiset 酔い止めを服用する \
https://w.atwiki.jp/comneko/pages/3.html
更新履歴 取得中です。 CNET ワーケーションの「場所選び」で大切にしたい、たった1つのこと 「アイマス シンデレラガールズ」10周年ツアー千葉公演で見た“新たな可能性を感じるステージ” 塩竈市の「副業型ワーケーション」参加者の声--旅しながら地域貢献できる仕組みに可能性 アップルが選んだアワード2021--ベストアプリからゲーム、Books＆マンガまで ［ブックレビュー］「いきた勉強」の仕方を学ぶ--「100年無敵の勉強法」 子どもがSNSで性的被害にあう理由--「オンライングルーミング」の手口とは？ スマホカメラでひまつぶし：5つのアイデア サンドバッグを使う本格トレーニングが自宅でも、スマートなグローブでパンチ力を計測 メルカリ、コンビニ大手3社と包括連携協定を締結--出品対策を強化 枝を鷲づかみして木に止まるドローンを開発、お手本はハヤブサの足--スタンフォード大学 スズキ、アプリから車両位置を確認、操作できる新サービス--「スズキコネクト店」も新設 アップル、顔の位置に合わせて画面の角度が自動的に調整されるノートPC--特許を出願 グローバルベイスとミラーフィットが協業--都市部の物件リノベーションにフィットネス向け鏡型デバイス Uber、乗車中の録音など3つの安全機能を米国で導入 Tesla、子供用のCybertruck風4輪バギー「Cyberquad for Kids」を発売--1900ドルで DMM、ウェブ縦読みマンガ事業に参入へ 16 item(s) Last-Modified 2021/12/04 10 00 00
https://w.atwiki.jp/gol-set/pages/2.html
メニュー Apricot Bruyere Elio Pasquare May Gilee Lydiane Elle-nahct Sachsen Hald Teo Lerner Toin Eidssange Tech Genus リンク @wiki @wikiご利用ガイド ここを編集
https://w.atwiki.jp/shfarts/pages/670.html
サンジ・ナミ・ウソップset -FILM Z 決戦服Ver.-（ZERO） 商品画像 情報 登場作品：劇場版ONE PIECE FILM Z 定価：9,240円 受注開始：2012年12月14日(金) 16 00 受注締切：2013年05月07日(火) 23 00 発送開始：2013年07月26日(金) 商品全高：約145mm(サンジ)/約140mm(ナミ)/約140mm(ウソップ) 付属品 その他：本体×3、専用台座×3 キャラクター概要 商品解説 良い点 悪い点 不具合情報 関連商品 ルフィ・チョッパー・フランキーset -FILM Z 決戦服Ver.- ゾロ・ロビン・ブルックスset -FILM Z 決戦服Ver.- ONE PIECE FILM Zセット（青雉・ナミ） コメント 名前 コメント
https://w.atwiki.jp/shinrigakusenkou/pages/20.html
方法 被験者． 20人（男3人、女17人）の通常の、もしくは矯正して通常の視力を持つ新神経学的に健康な人が参加。（16~25歳、Ｍ＝18.75）報告と報酬に関しては実験1と同じである。 刺激・手順・実験デザイン． 刺激については、黄色い円には数字がかかれていない（つまり数的手がかりは与えられない）ということを除いて、実験1で使われたものと同じである。被験者は文字の数（1~4）は試行を通して変化することが知らされ、数的予測に関してそれ以上は言及されない。前の実験の場合と同様に、課題はそれぞれの試行の終了時に文字を読み上げることであった。試行5~7で実験1におけるのと同様に、十字の線上に2つの文字が提示され、そして右下の象限に予期しない四角形が出現する。（図3）依存すべき尺度は被験者が5回目のcritical trialの際に予期しないアイテム（項目）を見たと報告するかどうかである。 結果 実験6では注意を必要とする主要課題項目の数を知らせる数的手がかりがなかった。 critical trial（5回目の試行）の時、この手がかりを与えられない条件でのＩＢの率（25%）は、両task-invalid条件での実験1（10%）と実験5（10%）に提示されたものとはっきりした違いは見られなかった。対照的に、ＩＢの率はtask-valid条件の実験1（65%）より明らかに低い率だった。（図6参照） divided-attention trial（6回目の試行）では、被験者の10%がＩＢを示し、task-invalid条件での実験1（0%…）と実験5（10%）また、task-valid条件の実験1（20%）でもはっきりした違いは見られなかった。Full-attention trial（7回目の試行）、十分な注意の条件下でのcritical stimulusの知覚という証拠でもＩＢは明確でなかった。付加された刺激を正しく報告したすべての被験者はその位置を特定できた。しかしながら、付加されたアイテムに気づきながらも、その幾何学図形を見分けることができない被験者もいた。（表1参照） 主要課題の全体的精度（正確さ）． はじめの4試行を通して、気づいた人と気づかなかった人の間には文字を読み上げる正確さではっきりとした違いはなかった。 考察 実験6では、課題に関連したアイテムの数を知らせる数的手がかりがなかったが、被験者の注意は種類（文字）と場所（十字の線）の両方になおあった。 その発見は以下のことを指し示す。数的な予測の手がかりがない時や試行のたびに主要課題のアイテムの数が異なる場合、ＩＢの率は被験者が主要課題項目の数を１つ多く言ったり（実験1）、少なく言ったり（実験5）するtask-invalid cueを与えられた条件とそんなに変わらなかった。対照的に被験者が主要課題項目の数を正しく提示されたtask-valid cueを与えられた条件と比較すると、ＩＢの率は明らかに低い。 この結果は、数的なset（設置・設定）はＩＢ現象に不可欠なものであるということをはっきりさせる。要課題項目の数が被験者の注意するセットと一致する場合（task-validの数的指示のため）、彼らはますますＩＢに陥りやすい。私たちは数的予測は主要課題が終わり、したがって処理を終えるがどうかについての情報を提供する注意のsetのただひとつの側面であるということを示す。 この結果にはＩＢを調べようと提案する研究での実験的デザインへの重要な暗示がある。課題の指示が被験者に主要課題項目の数について知らせる時（またはすべての試行にわたってアイテムの数が一定の時）より高い率でＩＢが続いて起こるようだ。将来の研究で扱うべき重要な問題は、静的・動的ＩＢ実験や、非選択的・選択的に見ることのパラダイム（方法）を通して、数的なset（設定）の重要性が変わるかどうかである。
https://w.atwiki.jp/kakis/pages/2739.html
setmai /// / 死体、殺された場合の死体 set\mai \ 16 seren klel \
https://w.atwiki.jp/todo314/pages/120.html
Maximizing Submodular Set Function with Connectivity Constraint Theory and Application to Networks Tung-Wei Kuo, Kate Ching-Ju Lin, Ming-Jer Tsai Research Center for Information Technology Innovation（資訊科技創新研究中心） National Tsing Hua University（國立清華大學） INFOCOM 2013 概要 ワイヤレスネットワークのルーターの設置問題 submodular関数で表せる さらにルーターは連結であるという制約を追加 この設定でも近似アルゴリズムが設計できる 1/O(√k)近似 頂点に重みをつけたbudget版も考えた 実験：ヒューリスティクスより良いよ モチベーション ワイヤレスネットワークのルーター 下の2つの評価を良くしたい 被覆領域 スループット 現実的にはルーターは連結 問題 予算制約無し Maximum Submodular set function (MS) problem max f(S) s.t. |S|≦k 1-1/e近似 Maximum Rooted Submodular set function (MRS) problem max f(S) s.t. |S|≦k, r∈S 予めrが入っているとしてgreedy Maximum Connected Submodular set function (MCS) problem max f(S) s.t. |S|≦k, Sは連結 予算制約有り Maximum Connected Submodular set function with Budget constraint (MCSB) problem max f(S) s.t. Σ_{s∈S}w(s)≦B, Sは連結 MCSの近似アルゴリズム 各rについて Vr = d(v,r)≦[√k]のvをとってくる Vrについて√kだけ選ぶMRSを解く 一番良いのをとっておく r*, S_r* この時点で、[√k]の非連結な頂点が選ばれており、点r*を中心に距離が高々[√k]離れている r*からS_r*の各頂点を結ぶ頂点をとってきてS_r*に追加 return S_r* MCSBの近似アルゴリズム 頂点に重みがついているので、辺に重みがつくようにグラフをちょっと変形 MCSのみたいに、距離[√B]以内の頂点をとってきてMRSBを求める 一番良いのをとってきたら結ぶ この時点で、総重みはw(r*)+B以下（ちょっとオーバー 頑張って実行可能解に変形 応用 Maximum Connected Coverage (MCC) problem f(S) = |C(S)| = |{v | d(S,v)≦r}|としたMRS Maximum Throughput Connected Coverage (MTCC) problem f(S) = T(S) = Σ_{v∈C(S)}max_{s∈S}T(v,s) 距離r以内のルーターで一番スループットが良いのの和とった 結果 定理1 MCSはNP-complete 定理2 提案アルゴリズムはMCSに対して1/O(√k)近似 定理3 MCCは1/O(√k)近似で解ける 定理4 MTCCは1/O(√k)近似で解ける 定理5 MCSBは1/[(Δ+1)O(√B)]近似で解ける 実験 ユーザーの被覆(MCC)と総スループット(MTCC)を考える まずユーザーの位置を決める 位置はZipf lawに従う 実際の無線環境を想定して設定 MCCについて 比較はVandinのアルゴリズム rootを1個指定したバージョンも これはVandinに負けた(´・ω・`) おかしい：rootを指定した結果で減少してる MTCCについて Vandinは適用不可 かわりにヒューリスティクス Our algorithm最強だぜ！！ budget版もやったよ まとめ √kのはちょっと面白いけど、普通に貪欲じゃ駄目なのかな？ 1個最大を選ぶ 今の集合に隣接してるから一番イイのを選ぶ ぱっと見でsubmodularの性質を満たすと分かりそうだが、この定式化は新しいのかなあ？ 実験はMTCCの方が適当に見えた Kleinbergのinfluence maximizationも最初はヒューリスティクスしか無かったししょうがないのかな INFOCOM submodular function wireless network 2013-11-15 00 36 24 (Fri)
https://w.atwiki.jp/oreore1999/pages/18.html
vimrc v1 2008/11/24 if v lang =~ "utf8$" || v lang =~ "UTF-8$" set fileencodings=utf-8,latin1 endif set nocompatible " Use Vim defaults (much better!) set bs=indent,eol,start " allow backspacing over everything in insert mode "set ai " always set autoindenting on "set backup " keep a backup file set viminfo= 20,\"50 " read/write a .viminfo file, don t store more " than 50 lines of registers set history=50 " keep 50 lines of command line history set ruler " show the cursor position all the time " Only do this part when compiled with support for autocommands if has("autocmd") " In text files, always limit the width of text to 78 characters autocmd BufRead *.txt set tw=78 " When editing a file, always jump to the last cursor position autocmd BufReadPost * \ if line(" \"") 0 line (" \"") = line("$") | \ exe "normal! g \"" | \ endif endif if has("cscope") filereadable("/usr/bin/cscope") set csprg=/usr/bin/cscope set csto=0 set cst set nocsverb " add any database in current directory if filereadable("cscope.out") cs add cscope.out " else add database pointed to by environment elseif $CSCOPE_DB != "" cs add $CSCOPE_DB endif set csverb endif " Switch syntax highlighting on, when the terminal has colors " Also switch on highlighting the last used search pattern. if t_Co 2 || has("gui_running") syntax on set hlsearch endif if term=="xterm" set t_Co=8 set t_Sb=^[[4%dm set t_Sf=^[[3%dm endif if term=="xterm-256color" set t_Co=256 set t_Sb=^[[4%dm set t_Sf=^[[3%dm endif nnoremap silent F8 TlistToggle CR nmap C-N cn CR nmap C-P cp CR nmap UP tabnew CR nmap DOWN tabclose CR nmap LEFT tabprevious CR nmap RIGHT tabnext CR noremap j gj noremap k gk set vb " ビープを鳴らさない set nu " 行番号の表示 set et " TAB 文字をスペースに展開 set hid " バッファを切り替えても Undo 出来るようにする set ignorecase " 検索時に大文字小文字を無視 (noignorecase 無視しない) set smartcase " 大文字小文字の両方が含まれている場合は大文字小文字を区 別 set autoindent " 自動的にインデントする set ruler " ルーラの表示 set wrap " 長い行を折り返す set showcmd " コマンドをステータス行に表示 set title " タイトルを表示 set nobackup " バックアップファイルを作らない set wrapscan " 検索時にファイルの最後まで行ったら最初に戻る (nowrapscan 戻らない) set showmatch " 括弧入力時に対応する括弧を表示 (noshowmatch 表示しない ) set wildmenu " コマンドライン補完するときに強化されたものを使う(参照 help wildmenu) set backspace=2 " バックスペースでインデントや改行の削除を出来るようにす る set ts=4 " TAB (文字コード 0x09) の表示幅 set sw=4 " オートインデントで挿入されるタブの幅 set sts=4 " TAB Key 押下時に挿入される幅 set bdir=~/temp " バックアップファイルの作成場所 set dir=~/temp " スワップファイルの作成場所の指定 set fenc=utf-8 set ff=unix set helplang=ja,en set laststatus=2 " ステータスバー常時表示 " n Number バッファナンバー " f String カレントディレクトリから見た相対パス " m Flag 更新フラグ [+] | [-] " r Flag リードオンリーフラグ [RO] | " l Number 行数 " c Number 列数 set statusline=% [%02n]%*\ %f\ %m%r%w%{ [ .( ft!= ? ft text ). ] }%{ [ .( fenc!= ? fenc enc). ][ . ff. ] }%=%l,%c%V%8P let html_use_css = 1 " TOHtml で作成される HTML で CSS を使用する